home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / wildcat / cook15a.zip / FORTUNE.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-01  |  21KB  |  800 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  20881 bytes  01/28/123  10:06:30pm
  3. '! Code Segment Size  :10180 bytes
  4. '! Data Segment Size  :26592 bytes
  5. '! String Segment Size:10701 bytes
  6. '! Compiled with WCC version 4.11
  7.  
  8.       Declare Sub Sub8677
  9.       Declare Sub Sub8889
  10.       Declare Sub Sub9271(i65534 As Integer, s65532 As String, s65530 As String)
  11.       Declare Sub Sub9521
  12.       Declare Sub Sub9603
  13.       Declare Sub Sub9704
  14.       Declare Sub Sub9864
  15.       Declare Sub Sub10047
  16.  
  17.       Dim i4463 As Integer
  18.       Dim s4465 As String
  19.       Dim i4471 As Integer
  20.       Dim i4473 As Integer
  21.       Dim s4475 As String
  22.       Dim s4479 As String
  23.       Dim d4483 As Date
  24.       Dim dt4485 As DateTime
  25.       Dim s4491(0 To 365) As String*60
  26.       Dim s26451 As String
  27.       Dim sr26455 As SearchRec
  28.       Dim i26504 As Integer
  29.       Dim d26510 As Date
  30.       Dim s26512 As String*1
  31.       Dim s26513 As String
  32.       Dim s26517 As String*1
  33.       Dim i26518 As Integer
  34.       Dim s26520 As String
  35.       Dim s26524 As String
  36.       Dim s26528 As String
  37.       Dim s26532 As String
  38.       Dim i26536 As Integer
  39.       Dim i26538 As Integer
  40.       Dim i26540 As Integer
  41.       Dim i26542 As Integer
  42.       Dim i26544 As Integer
  43.       Dim l26546 As Long
  44.       Dim i26550 As Integer
  45.       Dim i26552 As Integer
  46.       Dim i26554 As Integer
  47.       Dim s26556 As String
  48.       Dim s26560 As String
  49.       Dim s26564 As String
  50.       Dim s26568 As String
  51.       Dim i26572 As Integer
  52.       Dim i26574 As Integer
  53.       Dim s26576 As String
  54.       Dim s26580 As String
  55.       Dim s26584 As String
  56.       Dim i26588 As Integer
  57.       Dim i26590 As Integer
  58.  
  59.       Dim i65504_ As Integer '! Temporary
  60.       Dim i65506_ As Integer '! Temporary
  61.       Dim i65508_ As Integer '! Temporary
  62.       Dim s65510_ As String '! Temporary
  63.       Dim i65514_ As Integer '! Temporary
  64.       Dim s65516_ As String '! Temporary
  65.       Dim s65520_ As String '! Temporary
  66.       Dim i65524_ As Integer '! Temporary
  67.       Dim s65526_ As String '! Temporary
  68.       Dim s65530_ As String '! Temporary
  69.       Dim i65534_ As Integer '! Temporary
  70.  
  71.       CarrierCheck(-1)
  72.       s4475 = User.Name
  73.       CurrentDate d4483
  74.       CurrentDateTime dt4485
  75.       i4463 = 0
  76.       s4491(0) = "     "
  77.       s4491(1) = "BEWARE OF STRANGERS."
  78.       s4491(2) = "AVOID WEARING PLAID AND STRIPES TOGETHER."
  79.       s4491(3) = "DON'T RUN WITH SCISSORS."
  80.       s4491(4) = "LIFE IS LIKE A BOX OF CHOCOLATES (HAH!)."
  81.       s4491(5) = "'TIS AN ILL WIND THAT BLOWS NO MINDS."
  82.       s4491(6) = "THERE IS NO TYRANNY IN THE STATE OF CONFUSION."
  83.       s4491(7) = "FREEDOM DEFINED IS FREEDOM DENIED."
  84.       s4491(8) = "PARADISE IS LIKE WHERE YOU ARE RIGHT NOW. ONLY BETTER."
  85.       s4491(9) = "COLLEGE ISN'T THE PLACE TO GO FOR IDEAS."
  86.       s4491(10) = "WE ARE WHAT WE PRETEND TO BE."
  87.       s4491(11) = "IF IT HAPPENS, IT MUST BE POSSIBLE."
  88.       s4491(12) = "OBSERVATION, NOT OLD AGE, BRINGS WISDOM."
  89.       s4491(13) = "SOMETIMES PAIN CAN DRIVE ONE HARDER THAN PLEASURE."
  90.       s4491(14) = "ANGELS FLY BECAUSE THEY TAKE THEMSELVES LIGHTLY."
  91.       s4491(15) = "HE WHO LAUGHS, LASTS."
  92.       s4491(16) = "ONE SHOULD NEVER BE WHERE ONE DOES NOT BELONG."
  93.       s4491(17) = "WHEN YOU AIN'T GOT NOTHIN', YOU GOT NOTHIN' TO LOSE."
  94.       s4491(18) = "MONEY DOESN'T TALK, IT SWEARS"
  95.       s4491(19) = "HE WHO SMELLS LIKE A PIG, EATS LIKE A WOLF."
  96.       s4491(20) = "A CLOSED MIND, GATHERS NO FACTS."
  97.       s4491(21) = "ALL PROGRESS DEPENDS ON THE UNREASONABLE MAN."
  98.       s4491(22) = "AVOID COMPUTER VIRUSES. PRACTICE SAVE HEX."
  99.       s4491(23) = "BEHIND EVERY ARGUMENT IS SOMEONE'S IGNORANCE."
  100.       s4491(24) = "DON'T EXPECT TOO MUCH AND YOU'LL NEVER BE DISAPPOINTED."
  101.       s4491(25) = "DON'T THINK TWICE, IT'S ALRIGHT."
  102.       s4491(26) = "LIFE IS SHORT...BUT IT'S WIDE!"
  103.       s4491(27) = "FOR EVERY ACTION, THERE'S AN EQUAL & OPPOSITE CRITICISM."
  104.       s4491(28) = "GOOD ADVICE WORKS BEST WHEN THE GIVER TAKES HIS OWN."
  105.       s4491(29) = "IF YOU CAN'T LAUGH AT YOURSELF, MAKE FUN OF OTHERS."
  106.       s4491(30) = "LIKE IT OR NOT: YOU'RE PART OF THE FOOD CHAIN!"
  107.       s4491(31) = "NEVER SLEEP WITH ONE WHOSE TROUBLES ARE WORSE THAN YOURS."
  108.       s4491(32) = "SUCCESS OCCURS WHEN OPPORTUNITY MEETS PREPARATION."
  109.       s4491(33) = "THE HUMAN RACE IS STILL IN BETA TEST."
  110.       s4491(34) = "LIFE IS NOT A REHEARSAL."
  111.       s4491(35) = "THE IMPORTANT THINGS ARE ALWAYS SIMPLE."
  112.       s4491(36) = "A REASONABLE PERSON ADAPTS TO THE SURROUNDINGS."
  113.       s4491(37) = "THE TWO MOST COMMON ELEMENTS: HYDROGEN AND STUPIDITY."
  114.       s4491(38) = "THE UNREASONABLE PERSON ADAPTS THE SURROUNDINGS TO HIM."
  115.       s4491(39) = "THERE ARE NO ANSWERS, ONLY CROSS-REFERENCES."
  116.       s4491(40) = "THERE IS NO KNOWLEDGE THAT IS NOT POWER."
  117.       s4491(41) = "THERE'S NO GIFT LIKE THE PRESENT."
  118.       s4491(42) = "THOSE WHO FOLLOW LIKE SHEEP ARE BOUND TO BE FLEECED."
  119.       s4491(43) = "WHEN THINGS GO WRONG, DON'T GO WITH THEM."
  120.       s4491(44) = "YOU DO NOT CONVERT A MAN BY SILENCING HIM."
  121.       s4491(45) = "SILENCE IS NOT AGREEMENT."
  122.       s4491(46) = "PESSIMISTS COMPLAIN ABOUT NOISE WHEN OPPORTUNITY KNOCKS."
  123.       s4491(47) = "A CLOSED MOUTH GATHERS NO FOOT."
  124.       s4491(48) = "A TRULY WISE PERSON KNOWS THAT HE KNOWS NOT."
  125.       s4491(49) = "A FAULT RECOGNIZED IS HALF CORRECTED."
  126.       s4491(50) = "    "
  127.       s4491(51) = "AFTER ALL IS SAID AND DONE, MORE IS SAID THAN DONE."
  128.       s4491(52) = "AN IDEA WON'T WORK UNLESS YOU DO."
  129.       s4491(53) = "HE THAT LIVES ON HOPE WILL DIE FASTING."
  130.       s4491(54) = "IT'S A SMALL WORLD, BUT YOU WOULDN'T WANT TO PAINT IT."
  131.       s4491(55) = "IT'S ALWAYS HARDER TO PAVE THE WAY FOR OTHERS."
  132.       s4491(56) = "HISTORY REPEATS ITSELF BECAUSE NOBODY LISTENS."
  133.       s4491(57) = "LIFE IS FIRST DRAFT...WITH NO REWRITE."
  134.       s4491(58) = "THE MORE YOU SAY, THE LESS PEOPLE REMEMBER."
  135.       s4491(59) = "WISDOM IS KNOWING WHAT TO DO WITH WHAT YOU KNOW."
  136.       s4491(60) = "YOU CAN'T TEACH AN OLD DOGMA NEW TRICKS."
  137.       s4491(61) = "ALL GENERAL STATEMENTS ARE FALSE."
  138.       s4491(62) = "WHEN CHILDHOOD DIES, ITS CORPSES ARE CALLED ADULTS."
  139.       s4491(63) = "BLESSED BE THE PESSIMIST, FOR HE HATH MADE BACKUPS."
  140.       s4491(64) = "EXERCISE DAILY. EAT WISELY. DIE ANYWAY."
  141.       s4491(65) = "DON'T TAKE LIFE SO SERIOUSLY; IT ISN'T PERMANENT."
  142.       s4491(66) = "FRIENDS COME AND GO, BUT ENEMIES ACCUMULATE."
  143.       s4491(67) = "ALL FORGIVENESS IS A GIFT TO YOURSELF."
  144.       s4491(68) = "A SINGLE FACT CAN SPOIL A GOOD ARGUMENT."
  145.       s4491(69) = "CHANGE IS INEVITABLE, EXCEPT FROM VENDING MACHINES."
  146.       s4491(70) = "BE THE EYES AND EARS OF THE UNIVERSE."
  147.       s4491(71) = "EVERY EXIT IS AN ENTRANCE."
  148.       s4491(72) = "IF YOU CAN'T LAUGH AT YOURSELF, YOU'LL FIND ONE WHO CAN."
  149.       s4491(73) = "NO AMOUNT OF PLANNING WILL REPLACE DUMB LUCK."
  150.       s4491(74) = "SOME MAKE THEIR MARK, OTHERS LEAVE IT."
  151.       s4491(75) = "TALK IS CHEAP BECAUSE SUPPLY EXCEEDS DEMAND."
  152.       s4491(76) = "THE SCENERY ONLY CHANGES FOR THE LEAD DOG."
  153.       s4491(77) = "DON'T FORGET THAT YOU ARE STILL IN BETA."
  154.       s4491(78) = "TRY TO SWIM IN THE DEEP END OF THE GENE POOL."
  155.       s4491(79) = "TO ERR IS HUMAN; TO FORGIVE, UNUSUAL."
  156.       s4491(80) = "WHEN ALL ELSE FAILS...READ THE MANUAL."
  157.       s4491(81) = "YOU CAN'T HAVE EVERYTHING...WHERE WOULD YOU PUT IT?"
  158.       s4491(82) = "YOU WILL SPEND THE REST OF YOUR LIFE IN THE FUTURE."
  159.       s4491(83) = "IT IS OFTEN WISER TO UNLEARN THAN TO LEARN."
  160.       s4491(84) = "MAKE FRIENDS BEFORE YOU NEED THEM."
  161.       s4491(85) = "ABSENCE OF EVIDENCE IS NOT EVIDENCE OF ABSENCE."
  162.       s4491(86) = "LIFE IS CHANGE."
  163.       s4491(87) = "YOU'RE ADMIRED FOR YOUR ADVENTUROUS WAYS."
  164.       s4491(88) = "THE WORLD WILL SOON BE READY TO RECEIVE YOUR TALENTS."
  165.       s4491(89) = "A TREASURED FRIEND NOT OFTEN SEEN WILL SOON VISIT YOU."
  166.       s4491(90) = "A LETTER OF GREAT IMPORTANCE MAY REACH YOU SOON."
  167.       s4491(91) = "SOMEONE IS SPEAKING WELL OF YOU."
  168.       s4491(92) = "TODAY IS THE TOMORROW YOU WORRIED ABOUT YESTERDAY."
  169.       s4491(93) = "EVERY SOLUTION BREEDS NEW PROBLEMS."
  170.       s4491(94) = "THOSE WHO CAN, DO.  THOSE WHO CAN'T, SIMULATE."
  171.       s4491(95) = "YOUR HAPPINESS IS INTERTWINED WITH YOUR OUTLOOK."
  172.       s4491(96) = "YOUR NEXT ACQUAINTANCE WILL BE THE RIGHT ONE."
  173.       s4491(97) = "WITHOUT FOOLS THERE WOULD BE NO WISDOM."
  174.       s4491(98) = "REMEMBER, IT IS BAD LUCK TO BE SUPERSTITIOUS."
  175.       s4491(99) = "     "
  176.       s4491(100) = "HE WHO LAUGHS, LASTS."
  177.       Cls 
  178.       StatusOpen 1
  179.       StatusWrite " " + Mid(User.Name, 1, 16) + " (" + Mid(User.Alias, 1, 15) + "), " + Mid(User.From, 1, 15) + "   Time: " + Str(TimeLeft) + "   Sec: " + Mid(User.SecLevel, 1, 10), 1213417543, 1213417543, 1213417543
  180.       s26568 = "93474"
  181.       If Not Exists(ProgPath + "COOKIE.CFG") Then
  182.         s26520 = "UNREGISTERED BBS"
  183.         i26536 = 60
  184.         i26538 = 60
  185.         s26584 = User.Name
  186.         s26528 = ""
  187.         i26540 = 0
  188.         i26544 = 1
  189.         i26542 = 0
  190.         ActivityLog "UNREGISTERED VERSION OF FORTUNE COOKIE."
  191.       Else
  192.  3664   Open ProgPath + "COOKIE.CFG" For Input As 6
  193.         Input #6, s26520
  194.         Input #6, s26524
  195.         Input #6, s26532
  196.         Input #6, s26528
  197.         Input #6, i26536
  198.         Input #6, i26538
  199.         Input #6, i26540
  200.         Input #6, i26544
  201.         Input #6, l26546
  202.         Input #6, i26542
  203.         Close 6
  204.         Sub9864
  205.       End If
  206.  3776 If i26540 = 1 Then
  207.         s26584 = User.Alias
  208.       Else
  209.  3812   s26584 = User.Name
  210.       End If
  211.  3826 If Exists(ProgPath + "BEG.BBS") Then
  212.         MorePrompt(-1)
  213.         DisplayTextFile(ProgPath + "BEG.BBS")
  214.         WaitEnter 
  215.         Cls 
  216.       End If
  217.  3872 If i26542 Then
  218.         Sub10047
  219.       End If
  220.  3889 If Not Exists(ProgPath + "SCORES.BBS") Then
  221.         Locate 1, 5
  222.         Open ProgPath + "SCORES.BBS" For Output As 5
  223.         Print #5, " "
  224.         Print #5, "@0E@-------------------------------------------------------------------"
  225.         Print #5, "@0B@                     FORTUNE COOKIE HALL OF FAME                  "
  226.         Print #5, "@0E@-------------------------------------------------------------------@0E@"
  227.         Print #5,
  228.         Close 5
  229.       End If
  230.  3990 If Exists(ProgPath + "FC1.DAT") Then
  231.         DisplayTextFile(ProgPath + "FC1.DAT")
  232.       End If
  233.  4023 Locate 20, 10
  234.       If s26520 = "UNREGISTERED BBS" Then
  235.         Sub9271((19), ("an UNREGISTERED VERSION      "), ("@D7@"))
  236.       Else
  237.  4116
  238.         Sub9271((19), ("REGISTERED BY " + s26520 + "     "), ("@57@"))
  239.       End If
  240.  4192 Locate 21, 1
  241.       WaitEnter 
  242.       If Exists(ProgPath + "FORTUNE.DAT") Then
  243.         Open ProgPath + "FORTUNE.DAT" For Input As 3
  244.         Input #3, s26513
  245.         Close 3
  246.         DateStringToDate "mm/dd/yy", s26513, d26510
  247.         If FormatDate(dt4485.D, "mm/dd/yy") <> FormatDate(d26510, "mm/dd/yy") Then
  248.           Del ProgPath + "FORTUNE.DAT"
  249.           Open ProgPath + "FORTUNE.DAT" For Output As 4
  250.           Print #4, FormatDate(dt4485.D, "mm/dd/yy")
  251.           Close 4
  252.           Del ProgPath + "COOKIE.LOG"
  253.         End If
  254.  4375 Else
  255.  4381   Open ProgPath + "FORTUNE.DAT" For Output As 4
  256.         Print #4, FormatDate(dt4485.D, "mm/dd/yy")
  257.         Close 4
  258.       End If
  259.  4427 Sub9704
  260.       Locate 17, 26
  261.       Do
  262.  4440   s26517 = InKey(1213417543)
  263.         If s26517 = "O" Or s26517 = "o" Then
  264.           GoTo 4744
  265.         End If
  266.  4494   If s26517 = "I" Or s26517 = "i" Then
  267.           GoSub 5286
  268.         End If
  269.  4534   If s26517 = "H" Or s26517 = "h" Then
  270.           GoSub 5148
  271.         End If
  272.  4574   If s26517 = "R" Or s26517 = "r" Or s26517 = "Q" Or s26517 = "q" Or s26517 = Chr(27) Then
  273.           i26518 = 1
  274.           GoTo 4744
  275.         End If
  276.  4666   If s26517 = "S" Or s26517 = "s" Then
  277.           Cls 
  278.           Locate 17, 23
  279.           Print "@0E@There are no SECRET keys on this menu..."
  280.           WaitEnter 
  281.           Cls 
  282.           Sub9704
  283.           Locate 17, 26
  284.         End If
  285.  4738 Loop
  286.  4744 If i26518 Then
  287.         Sub8889
  288.         StatusClose 
  289.         End 
  290.       End If
  291.  4765 Cls 
  292.       If Exists(ProgPath + "COOKIE.LOG") Then
  293.         Open ProgPath + "cookie.log" For Input As 1
  294.         Sub9521
  295.         Close 1
  296.         If s4475 = "MARTIN BLACKWELL" Then
  297.           s26512 = "N"
  298.         End If
  299.  4851   If s4475 = "TJ TURU" Then
  300.           s26512 = "N"
  301.         End If
  302.  4879   If s26512 = "Y" Then
  303.           Sub9603
  304.           Sub8889
  305.           StatusClose 
  306.           End 
  307.         End If
  308.       End If
  309.  4914 If Exists(ProgPath + "FC5.DAT") Then
  310.         DisplayTextFile(ProgPath + "FC5.DAT")
  311.       End If
  312.  4947 Open ProgPath + "cookie.log" For Append As 2
  313.       Print #2, s4475
  314.       Close 2
  315.       Print "@0B@"
  316.       Locate 16, 13
  317.       Print "Press the [SPACEBAR] to open your FORTUNE cookie..."
  318.       Sub8677
  319.       Cls 
  320.       If Exists(ProgPath + "FC4.DAT") Then
  321.         DisplayTextFile(ProgPath + "FC4.DAT")
  322.       End If
  323.  5053 s4465 = s4491(i4471)
  324.       GoSub 5742
  325.       If i4463 = 1 Then
  326.         GoSub 7847
  327.       End If
  328.  5115 If i4463 = - 1 Then
  329.         GoSub 8171
  330.       End If
  331.  5138 Sub8889
  332.       StatusClose 
  333.       End 
  334.  5148 If Not Exists(ProgPath + "SCORES.BBS") Then
  335.         Open ProgPath + "SCORES.BBS" For Output As 5
  336.         Print #5, " "
  337.         Print #5, "@0E@-------------------------------------------------------------------"
  338.         Print #5, "@0B@                     FORTUNE COOKIE HALL OF FAME                  "
  339.         Print #5, "@0E@-------------------------------------------------------------------@0E@"
  340.         Print #5,
  341.         Close 5
  342.       End If
  343.  5242 MorePrompt(-1)
  344.       Cls 
  345.       DisplayTextFile(ProgPath + "SCORES.BBS")
  346.       WaitEnter 
  347.       Cls 
  348.       Sub9704
  349.       Locate 17, 26
  350.       Return 
  351.  5286 Locate 1, 0
  352.       Cls 
  353.       MorePrompt(-1)
  354.       Print "@0B@"
  355.       Print "WELCOME TO FORTUNE COOKIE!"
  356.       Print
  357.       Print "You've consumed your take-out Chinese food. Now it's time to crack"
  358.       Print "open your fortune cookie.  What will your fortune be?  Will it be"
  359.       Print "positive or negative, hopeful or threatening?  That's right..."
  360.       Print
  361.       Print "Some fortunes will be good ones.  They will be printed in"
  362.       Print "@F1@BLUE LETTERS.@0B@  They will increase your time for this call."
  363.       Print "Some fortunes will be innocuous.  They will be printed in"
  364.       Print "@70@BLACK LETTERS.@0B@  And some will be downright evil."
  365.       Print "They will be printed in @F4@RED LETTERS@0B@.  They will decrease"
  366.       Print "your time for this call.  And if your Sysop is really evil..."
  367.       Print "well, it's a chance you have to take."
  368.       Print
  369.       Print "Only one play per day allowed.  Read your fortune at your own risk."
  370.       Print
  371.       Print "DO YOU FEEL LUCKY TODAY?"
  372.       Print
  373.       Print "-------------------------------------------------------------------"
  374.       Print
  375.       Print "@0A@FORTUNE COOKIE was designed and coded by Martin Blackwell from"
  376.       Print "an idea by Marco Garrett of Summa Nulla BBS, L.A., (213) 957-2562."
  377.       Print
  378.       If s26520 = "UNREGISTERED BBS" Then
  379.         Print "@0D@This is an UNREGISTERED copy of Fortune Cookie. Please help your"
  380.         Print "Sysop register this program.  It's only five bucks.            "
  381.       End If
  382.  5504 If s26520 = "UNREGISTERED BBS" And User.SecLevel = "SYSOP" Then
  383.         Print
  384.         Print "@0C@REGISTRATION: "
  385.         Print "To register Fortune Cookie, send your registration form, along"
  386.         Print "with $5.00 (check, money order or cash at your own risk) to"
  387.         Print "Martin Blackwell, P.O. Box " + s26568 + ", Hollywood, CA 90093.      "
  388.         Print "You'll sleep better at night. :)                            "
  389.         Print
  390.       End If
  391.  5602 If s26520 <> "UNREGISTERED BBS" Then
  392.         Print "@0E@THANKS TO YOUR SYSOP FOR REGISTERING FORTUNE COOKIE."
  393.         Print
  394.       End If
  395.  5630 Print "@09@-------------------------------------------------------------------"
  396.       Print "@0B@                            THANKS!"
  397.       Print "                  To our loyal beta testers:                    "
  398.       Print
  399.       Print " JAMES AVERY - KAREN KANAKANUI -  ANDY KIM - JUAN SERRANO -   "
  400.       Print " ERIC LI - HENG NETH - MICHELLE SAITO - RAPHAEL MOROZOV - "
  401.       Print " GERALD LEE - DAVID AVERY - IVAN JEN - DON FELKER - KEN SIMMONS -"
  402.       Print " DONOVON LEE - ERIC LI - JUAN SERRANO - DAVID WANGERIN - "
  403.       Print " FREDDY FRIDAY, AND EVAN SIMON & BREAK TIME BBS! "
  404.       Print " "
  405.       Print "-------------------------------------------------------------------"
  406.       WaitEnter 
  407.       Cls 
  408.       Sub9704
  409.       Locate 17, 26
  410.       Return 
  411.  5742 i26572 = TimeLeft
  412.       s26451 = s4491(i4471)
  413.       i4473 = i4471
  414.       s26564 = "@70@"
  415.       s26576 = ""
  416.       i26590 = TimeLeft
  417.       i26588 = 0
  418.       i26588 = InStr(i26588, "|12|23|34|45|56|78|89|91|", "|" + Str(i4473) + "|")
  419.       If i26588 > 0 Then
  420.         Beep 
  421.         s4465 = "               TIME IS RELATIVE!               "
  422.         s26576 = "FORTUNE cookie increased user's time!"
  423.         i26574 = Int(i26538 / 2)
  424.         AddTime i26574
  425.         s26564 = "@F1@"
  426.         s26580 = Str(Int(i26538 / 2))
  427.         i4463 = 1
  428.         s26560 = "YOUR TIME HAS BEEN INCREASED BY " + s26580 + " MINUTES."
  429.       End If
  430.  5992 i26588 = 0
  431.       i26588 = InStr(i26588, "|11|32|41|51|61|82|91|15|", "|" + Str(i4473) + "|")
  432.       If i26588 > 0 Then
  433.         Beep 
  434.         s4465 = "               TIME IS RELATIVE!               "
  435.         s26576 = "FORTUNE cookie increased user's time!"
  436.         i26574 = Int(i26538)
  437.         AddTime i26574
  438.         s26564 = "@F1@"
  439.         s26580 = Str(Int(i26538))
  440.         i4463 = 1
  441.         s26560 = "YOUR TIME HAS BEEN INCREASED BY " + s26580 + " MINUTES."
  442.       End If
  443.  6149 i26588 = 0
  444.       i26588 = InStr(i26588, "|14|38|48|59|78|88|", "|" + Str(i4473) + "|")
  445.       If i26588 > 0 Then
  446.         Beep 
  447.         s4465 = "TIME IS RELATIVE!"
  448.         s26576 = "FORTUNE cookie increased user's time!"
  449.         i26574 = Int(i26538 / 4)
  450.         AddTime i26574
  451.         s26564 = "@F1@"
  452.         s26580 = Str(Int(i26538 / 4))
  453.         i4463 = 1
  454.         s26560 = "   YOUR TIME HAS BEEN INCREASED BY " + s26580 + " MINUTES.   "
  455.       End If
  456.  6320 i26588 = 0
  457.       i26588 = InStr(i26588, "|7|36|56|76|96|", "|" + Str(i4473) + "|")
  458.       If i26588 > 0 Then
  459.         Beep 
  460.         s4465 = "TIME IS RELATIVE!"
  461.         s26576 = "FORTUNE cookie increased user's time!"
  462.         i26574 = Int(i26538 / 2 + 2)
  463.         AddTime i26574
  464.         s26580 = Str(Int(i26538 / 2) + 2)
  465.         s26564 = "@F1@"
  466.         i4463 = 1
  467.         s26560 = "   YOUR TIME HAS BEEN INCREASED BY " + s26580 + " MINUTES.   "
  468.       End If
  469.  6502 i26588 = 0
  470.       i26588 = InStr(i26588, "|58|66|71|72|", "|" + Str(i4473) + "|")
  471.       If i26588 > 0 Then
  472.         Beep 
  473.         s4465 = "       LIFE IS SHORTER THAN YOU THINK!       "
  474.         s26576 = "FORTUNE cookie reduced user's time!"
  475.         i26574 = Int(i26536)
  476.         s26580 = Str(Int(i26536))
  477.         If i26572 - i26574 < 2 Then
  478.           AddTime - (i26572 - 1)
  479.           s26580 = Str(i26572 - 1)
  480.         Else
  481.  6671     AddTime - i26574
  482.         End If
  483.  6681   s26564 = "@F4@"
  484.         i4463 = - 1
  485.         s26560 = "YOUR TIME HAS BEEN DECREASED BY " + s26580 + " MINUTES."
  486.       End If
  487.  6721 i26588 = 0
  488.       i26588 = InStr(i26588, "|1|4|5|13|16|64", "|" + Str(i4473) + "|")
  489.       If i26588 > 0 Then
  490.         Beep 
  491.         s4465 = "       LIFE IS SHORTER THAN YOU THINK!       "
  492.         s26576 = "FORTUNE cookie reduced user's time!"
  493.         i26574 = Int(i26536 / 4)
  494.         s26580 = Str(Int(i26536 / 4))
  495.         If i26572 - i26574 < 2 Then
  496.           AddTime - (i26572 - 1)
  497.           s26580 = Str(i26572 - 1)
  498.         Else
  499.  6904     AddTime - i26574
  500.         End If
  501.  6914   s26564 = "@F4@"
  502.         i4463 = - 1
  503.         s26560 = "YOUR TIME HAS BEEN DECREASED BY " + s26580 + " MINUTES."
  504.       End If
  505.  6954 i26588 = 0
  506.       i26588 = InStr(i26588, "|17|18|19|20|29|", "|" + Str(i4473) + "|")
  507.       If i26588 > 0 Then
  508.         Beep 
  509.         s4465 = "       LIFE IS SHORTER THAN YOU THINK!       "
  510.         s26576 = "FORTUNE cookie reduced user's time!"
  511.         i26574 = Int(i26536 - 2)
  512.         s26580 = Str(Int(i26536 - 2))
  513.         If i26572 - i26574 < 2 Then
  514.           AddTime - (i26572 - 1)
  515.           s26580 = Str(i26572 - 1)
  516.         Else
  517.  7131     AddTime - i26574
  518.         End If
  519.  7141   s26564 = "@F4@"
  520.         i4463 = - 1
  521.         s26560 = "YOUR TIME HAS BEEN DECREASED BY " + s26580 + " MINUTES."
  522.       End If
  523.  7181 i26588 = 0
  524.       i26588 = InStr(i26588, "|30|31|42|53|", "|" + Str(i4473) + "|")
  525.       If i26588 > 0 Then
  526.         Beep 
  527.         s4465 = "       LIFE IS SHORTER THAN YOU THINK!       "
  528.         s26576 = "FORTUNE cookie reduced user's time!"
  529.         i26574 = Int(i26536 / 2)
  530.         s26580 = Str(Int(i26536 / 2))
  531.         If i26572 - i26574 < 2 Then
  532.           AddTime - (i26572 - 1)
  533.           s26580 = Str(i26572 - 1)
  534.         Else
  535.  7364     AddTime - i26574
  536.         End If
  537.  7374   s26564 = "@F4@"
  538.         i4463 = - 1
  539.         s26560 = "YOUR TIME HAS BEEN DECREASED BY " + s26580 + " MINUTES."
  540.       End If
  541.  7414 i26588 = 0
  542.       i26588 = InStr(i26588, "|0|50|99|", "|" + Str(i4473) + "|")
  543.       If i26588 > 0 Then
  544.         If i26544 = 1 Then
  545.           Beep 
  546.           Open ProgPath + "SCORES.BBS" For Append As 6
  547.           Print #6, Pad("@03@" + Mid(s26584, 1, 20), 23);
  548.           Print #6, Pad("@02@  Received a really @04@EVIL @02@fortune!", 45);
  549.           Print #6, LeftPad("@0A@" + FormatDate(dt4485.D, "mm/dd/yy"), 15)
  550.           Close 6
  551.           s4465 = "EVIL LURKS IN THE HEART!"
  552.           ActivityLog "Opened a really EVIL fortune cookie!"
  553.           If s26528 <> "" Then
  554.             CopyFile(ProgPath + "SCORES.BBS", s26528)
  555.           End If
  556.  7645
  557.           Sub9271((15), s4465, ("@F4@"))
  558.           Delay 5
  559.           GoSub 8495
  560.           Delay 1
  561.           StatusClose 
  562.           HangUp 
  563.           End 
  564.         Else
  565.  7725     s26451 = "HE WHO LAUGHS, LASTS."
  566.         End If
  567.       End If
  568.  7734 ActivityLog "Opened FORTUNE Cookie! -- " + Str(i4471)
  569.       ActivityLog "Before time: " + Str(i26590) + ".  After time: " + Str(TimeLeft)
  570.       If s26576 <> "" Then
  571.         ActivityLog s26576
  572.       End If
  573.  7809
  574.       Sub9271((15), s26451, s26564)
  575.       Locate 22, 1
  576.       WaitEnter 
  577.       Return 
  578.  7847 s26564 = "@0E@"
  579.       If Exists(ProgPath + "FC2.DAT") Then
  580.         DisplayTextFile(ProgPath + "FC2.DAT")
  581.       End If
  582.  7889 StatusWrite " " + Mid(User.Name, 1, 16) + " (" + Mid(User.Alias, 1, 15) + "), " + Mid(User.From, 1, 15) + "   Time: " + Str(TimeLeft) + "   Sec: " + Mid(User.SecLevel, 1, 10), 1213417543, 1213417543, 1213417543
  583.       Sub9271((15), s26560, s26564)
  584.       Open ProgPath + "SCORES.BBS" For Append As 6
  585.       Print #6, Pad("@03@" + Mid(s26584, 1, 20), 23) + Pad("@02@  Time @09@increased@02@ by @0E@" + s26580 + "@02@ minutes", 53) + LeftPad("@0A@" + FormatDate(dt4485.D, "mm/dd/yy"), 15)
  586.       Close 6
  587.       Locate 22, 1
  588.       WaitEnter 
  589.       Return 
  590.  8171 s26564 = "@0E@"
  591.       If Exists(ProgPath + "FC3.DAT") Then
  592.         DisplayTextFile(ProgPath + "FC3.DAT")
  593.       End If
  594.  8213 StatusWrite " " + Mid(User.Name, 1, 16) + " (" + Mid(User.Alias, 1, 15) + "), " + Mid(User.From, 1, 15) + "   Time: " + Str(TimeLeft) + "   Sec: " + Mid(User.SecLevel, 1, 10), 1213417543, 1213417543, 1213417543
  595.       Sub9271((15), s26560, s26564)
  596.       Open ProgPath + "SCORES.BBS" For Append As 6
  597.       Print #6, Pad("@03@" + Mid(s26584, 1, 20), 23) + Pad("@02@  Time @0D@decreased@02@ by @0E@" + s26580 + "@02@ minutes", 53) + LeftPad("@0A@" + FormatDate(dt4485.D, "mm/dd/yy"), 15)
  598.       Close 6
  599.       Locate 22, 1
  600.       WaitEnter 
  601.       Return 
  602.  8495 Print "@CLS@@0F@"
  603.       Print
  604.       Print
  605.       Print
  606.       Print
  607.       Print
  608.       Print
  609.       Print "@0F@                @84@██████╗ ██╗      ██╗  ██████╗ ██╗  ██╗ ██╗@0F@"
  610.       Print "@0F@               @84@██╔════╝ ██║      ██║ ██╔════╝ ██║ ██╔╝ ██║@0F@"
  611.       Print "@0F@               @84@██║      ██║      ██║ ██║      █████╔╝  ██║@0F@"
  612.       Print "@0F@               @84@██║      ██║      ██║ ██║      ██╔═██╗  ╚═╝@0F@"
  613.       Print "@0F@               @84@╚██████╗ ███████╗ ██║ ╚██████╗ ██║  ██╗ ██╗@0F@"
  614.       Print "@0F@                @84@╚═════╝ ╚══════╝ ╚═╝  ╚═════╝ ╚═╝  ╚═╝ ╚═╝@0F@"
  615.       Print
  616.       Print
  617.       Print
  618.       Print
  619.       Print
  620.       Print
  621.       Print
  622.       Return 
  623.  
  624. '! Called 1 time
  625.       Sub Sub8677
  626.         Dim s65528 As String
  627.         Dim i65532 As Integer
  628.         Dim i65534 As Integer
  629.  
  630.         i65534 = 1
  631.         i65532 = 9
  632.         i4471 = Int(Rnd(Timer * User.UserId) * 100)
  633.         Do
  634.  8733     s65528 = InKey(1213417543)
  635.           If InStr(" ", s65528) Then
  636.             GoTo 8882
  637.           End If
  638.  8769     Locate 18, 23
  639.           Print Tab(39); "@" + Right(Hex(i65532), 2) + "@"; Mid("\|/-", i65534, 1);
  640.           i65534 = i65534 + 1
  641.           If i65534 > 4 Then
  642.             i65534 = 1
  643.           End If
  644.  8868     Delay 0.2
  645.         Loop
  646.  8882
  647.       End Sub
  648.  
  649. '! Called 3 times
  650.       Sub Sub8889
  651.         Cls 
  652.         Print "@NOPAUSE@"
  653.         If Exists(ProgPath + "FC5.DAT") Then
  654.           DisplayTextFile(ProgPath + "FC5.DAT")
  655.         End If
  656.  8943   Locate 10, 16
  657.         Print
  658.         Locate 12, 33
  659.         Print "@0A@FORTUNE COOKIE"
  660.         Locate 13, 19
  661.         Print "@0B@(c)1995 by Martin Blackwell & Marco Garrett"
  662.         Locate 14, 26
  663.         Print "@0D@Summa Nulla BBS (213) 957-2562"
  664.         Locate 17, 23
  665.         If InputYesNo("@0E@View the Hall of Fame? (y/N)@0F@", 0) Then
  666.           Cls 
  667.           DisplayTextFile(ProgPath + "SCORES.BBS")
  668.           WaitEnter 
  669.           Cls 
  670.           Print "@NOPAUSE@"
  671.           If Exists(ProgPath + "FC5.DAT") Then
  672.             DisplayTextFile(ProgPath + "FC5.DAT")
  673.           End If
  674.  9087     Locate 10, 16
  675.           Print
  676.           Locate 12, 33
  677.           Print "@0A@FORTUNE COOKIE"
  678.           Locate 13, 19
  679.           Print "@0B@(c)1995 by Martin Blackwell & Marco Garrett"
  680.           Locate 14, 26
  681.           Print "@0E@Summa Nulla BBS (213) 957-2562"
  682.         Else
  683.  9150     Locate 17, 20
  684.           Print "@00@                                           "
  685.         End If
  686.  9166   Locate 22, 3
  687.         Print "@0E@Please wait..."
  688.         If s26528 <> "" Then
  689.           CopyFile(ProgPath + "SCORES.BBS", s26528)
  690.         Else
  691.  9223     Delay 3
  692.         End If
  693.  9231   Locate 22, 3
  694.         Print "@0E@Returning to " + s26520 + ", @FIRST@..."
  695.         Delay 3
  696.       End Sub
  697.  
  698. '! Called 6 times
  699.       Sub Sub9271(i65534 As Integer, s65532 As String, s65530 As String)
  700.         Dim l65522 As Long
  701.         Dim i65526 As Integer
  702.         Dim i65528 As Integer
  703.  
  704.         s65532 = s65532 + " "
  705.         s65532 = Left(s65532, Int(Len(s65532) / 2) * 2)
  706.         Print "@NOPAUSE@" + s65530
  707.  9392   For i65528 = 1 To Len(s65532) / 2 Step 1
  708.           Locate i65534, 40 - i65528
  709.           Print Left(s65532, i65528); Right(s65532, i65528)
  710.         Next
  711.  9518
  712.       End Sub
  713.  
  714. '! Called 1 time
  715.       Sub Sub9521
  716.  9530   Do While Not EOF(1)
  717.           Input #1, s4479
  718.           If s4479 = s4475 Then
  719.             s26512 = "Y"
  720.             GoTo 9600
  721.           End If
  722.  9583   Loop
  723.  9589   s26512 = "N"
  724.  9600
  725.       End Sub
  726.  
  727. '! Called 1 time
  728.       Sub Sub9603
  729.         If Exists(ProgPath + "FC5.DAT") Then
  730.           DisplayTextFile(ProgPath + "FC5.DAT")
  731.         End If
  732.  9645   Locate 16, 16
  733.         Beep 
  734.         Print "@0D@Sorry, you can only open ONE cookie PER DAY!@0E@"
  735.         ActivityLog "User tried to open another Fortune Cookie."
  736.         Beep 
  737.         Locate 22, 3
  738.         Print "@0E@Please wait..."
  739.         Delay 5
  740.         Print
  741.       End Sub
  742.  
  743. '! Called 4 times
  744.       Sub Sub9704
  745.         Cls 
  746.         If Exists(ProgPath + "FC5.DAT") Then
  747.           DisplayTextFile(ProgPath + "FC5.DAT")
  748.         End If
  749.  9749   Locate 12, 21
  750.         Print "@NOPAUSE@  "
  751.         Locate 13, 25
  752.         Print "@0E@[@0C@O@0E@] @03@Open your FORTUNE cookie       "
  753.         Locate 14, 25
  754.         Print "@0E@[@0C@I@0E@] @03@Instructions                   "
  755.         Locate 15, 25
  756.         Print "@0E@[@0C@H@0E@] @03@Hall of Fame                   "
  757.         Locate 16, 25
  758.         Print "@0E@[@0C@R@0E@] @03@Return to BBS                  "
  759.         Locate 17, 25
  760.         Print "@0E@[@0C@ @0E@] @0B@Your choice, @FIRST@     "
  761.         Print "@0E@"
  762.         Locate 17, 29
  763.       End Sub
  764.  
  765. '! Called 1 time
  766.       Sub Sub9864
  767.         i26550 = Asc(Mid(s26524, 1, 1))
  768.         i26552 = Asc(Mid(s26532, 1, 1))
  769.         i26554 = (i26550 + i26552) * 10
  770.         s26556 = Str(l26546)
  771.         s26556 = Mid(s26556, 4, 4)
  772.         If Str(i26554) <> s26556 Then
  773.           s26520 = "UNREGISTERED BBS"
  774.           i26536 = 60
  775.           i26538 = 60
  776.           s26528 = ""
  777.           s26584 = User.Name
  778.           i26544 = 1
  779.           i26540 = 0
  780.           i26542 = 0
  781.         End If
  782. 10044
  783.       End Sub
  784.  
  785. '! Called 1 time
  786.       Sub Sub10047
  787.         i26504 = FindFirst("C:\WILDCAT\FORTUNE\SCORES.BBS", 0, sr26455)
  788.         If i26504 <> 0 Then
  789.           Print
  790.         Else
  791. 10095     If d4483.Month > sr26455.Date.Month Then
  792.             Del ProgPath + "SCORES1.BBS"
  793.           End If
  794. 10132     If d4483.Month = 1 And sr26455.Date.Month = 12 Then
  795.             Del ProgPath + "SCORES.BBS"
  796.           End If
  797.         End If
  798. 10177
  799.       End Sub
  800.